Fix previous change.

diff --git a/lisp/font-core.el b/lisp/font-core.el
index 69e899f31e59f65eb7a6dfff310bf7245c4a1b34..31bd6660411b649488b1cdd80c8a516911ac0ae5 100644 (file)
--- a/lisp/font-core.el
+++ b/lisp/font-core.el
@@ -270,7 +270,7 @@ Sets various variables using `font-lock-defaults' (or, if nil, using
     (make-local-variable 'font-lock-fontified)
     (make-local-variable 'font-lock-multiline)
     (let ((defaults (or font-lock-defaults
-                       (assq major-mode font-lock-defaults-alist))))
+                       (cdr (assq major-mode font-lock-defaults-alist)))))
       ;; Variable alist?
       (dolist (x (nthcdr 5 defaults))
        (set (make-local-variable (car x)) (cdr x)))